MacWorld 1995 March/Macworld CD-ROM (March 1995).cdr/Demos/Wrath of the Gods/33AM1/00001.ls

Text File | 1994-07-13 | 4.2 KB | 288 lines

on setLocal
end

on killLocal
end

on OrSend
  global currentGems, firstOr, o33a, orCount
  if currentGems = 0 then
    if firstOr = 0 then
      set firstOr to 1
      goOr("oQ6")
    else
      if firstOr = 1 then
        goOr("oQ5")
      end if
    end if
  else
    if currentGems > 0 then
      if firstOr = 0 then
        set firstOr to 1
        goOr("oQ6")
      else
        if firstOr = 1 then
          if o33a = 0 then
            if orCount = 0 then
              set orCount to 1
              goOr("oQ1")
            else
              if orCount = 1 then
                set orCount to 2
                goOr("oQ2")
              else
                if orCount = 2 then
                  set orCount to 0
                  goOr("oQ3")
                end if
              end if
            end if
          else
            if o33a = 1 then
              goOr("endO")
            end if
          end if
        end if
      end if
    end if
  end if
end

on hintSet
  global o33a
  puppetSprite(8, 1)
  puppetSprite(9, 1)
  puppetSprite(10, 1)
  if o33a = 1 then
    set the castNum of sprite 8 to the number of cast "hint1"
  end if
end

on killOrPup
  puppetSprite(8, 0)
  puppetSprite(9, 0)
  puppetSprite(10, 0)
end

on hint
  global o33a
  if o33a = 0 then
    doSound("freeHint")
    set o33a to 1
    set the castNum of sprite 8 to the number of cast "hint1"
  end if
end

on upArrow
end

on downArrow
end

on bk
  global mode
  if mode = 3 then
    lookitem("Looks like Greece")
  end if
end

on you
  global mode
  if mode = 3 then
    nothing()
  end if
end

on e1
  global mode
  if mode = 0 then
    go("ex e")
  else
    if mode = 3 then
      lookitem("That way goes east")
    end if
  end if
end

on ce1
  go("in w", "32AM1")
end

on e2
  global mode, cont, die33a
  if (mode = 0) and (die33a < 3) then
    go("e*king")
  else
    if (mode = 2) and (die33a < 3) then
      set cont to 1
      go("e*king")
    else
      if mode = 3 then
        lookitem("Looks like King Aeëtes")
      end if
    end if
  end if
end

on ce2
  global cont
  if cont = 1 then
    set cont to 0
    go("Q1")
  else
    go("at king")
  end if
end

on e2.1
  global mode, die33a
  if (mode = 0) and (die33a < 3) then
    go("e*king")
  else
    if mode = 3 then
      bk()
    end if
  end if
end

on e3
  global mode
  if mode = 0 then
    go("e*n")
  else
    if mode = 3 then
      lookitem("That way goes into the forest")
    end if
  end if
end

on ce3
  global die33a
  if die33a < 3 then
    go(1, "33AM2")
  else
    if die33a = 3 then
      go("in w YdYf", "33AM2")
    else
      if die33a = 4 then
        go("in w YdNf", "33AM2")
      end if
    end if
  end if
end

on e3.1
  global mode
  if mode = 0 then
    go("e*n")
  else
    if mode = 3 then
      lookitem("Looks like a forest")
    end if
  end if
end

on k1
  global mode
  if mode = 0 then
    go("king*e")
  else
    if mode = 3 then
      lookitem("That way goes east")
    end if
  end if
end

on k2
  global mode
  if mode = 2 then
    go("Q1")
  else
    if mode = 3 then
      lookitem("Looks like King Aeëtes")
    end if
  end if
end

on k3
  global mode
  if mode = 0 then
    go("king*n")
  else
    if mode = 3 then
      lookitem("That way goes into the forest")
    end if
  end if
end

on k3.1
  global mode
  if mode = 0 then
    go("king*n")
  else
    if mode = 3 then
      lookitem("Looks like a forest")
    end if
  end if
end

on n1
  global mode
  if mode = 0 then
    go("n*e")
  else
    if mode = 3 then
      lookitem("That way goes east")
    end if
  end if
end

on n2
  global mode, cont, die33a
  if (mode = 0) and (die33a < 3) then
    go("n*king")
  else
    if (mode = 2) and (die33a < 3) then
      set cont to 1
      go("n*king")
    else
      if mode = 3 then
        lookitem("Looks like King Aeëtes")
      end if
    end if
  end if
end

on n2.1
  global mode, die33a
  if (mode = 0) and (die33a < 3) then
    go("n*king")
  else
    if mode = 3 then
      bk()
    end if
  end if
end

on n3
  global mode
  if mode = 0 then
    go("ex n")
  else
    if mode = 3 then
      lookitem("That way goes into the forest")
    end if
  end if
end

on n3.1
  global mode
  if mode = 0 then
    go("ex n")
  else
    if mode = 3 then
      lookitem("Looks like a forest")
    end if
  end if
end